home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / DMMEMOF.PRG < prev    next >
Encoding:
Text File  |  1993-02-24  |  419 b   |  19 lines
  1. *****
  2. * The UDF() function that controls the sample text editor
  3. *****
  4. function dmmemof
  5.  
  6. *****
  7. * Remember, CUSTOM passes MVPARM1, MVPARM2 and MVPARM3
  8. *****
  9. mvudf_val=0
  10. mvstroke=lastkey()
  11. setcursor(.f.)
  12. if mvparm1=0
  13.     say(24,45," [Line: "+trim(str(mvparm2,iif(mvparm2<100,2,3),0))+"] ")
  14.     say(24,57," [Column: "+trim(str(mvparm3,2,0))+"] ")
  15.     mvudf_val=32
  16. endif
  17. setcursor(.t.)
  18. return mvudf_val
  19.